NOW 16 and 32 BIT !!

Use of the SENDKEY component
TSendkey makes it simple to send Keystrokes to another application. The two functions and the UseDll property are explained below. I have tried a lot of third party units and finally ended up making my own, at least this one works. The nice thing with this component is that you can use a Dll to send multiple Keystrokes ( up to 255 characters ) or use the component without the Dll to send a small number to another application ( tested for up to 12 characters ).

Properties
UseDll        False will use the VCL without the Dll to send keystrokes
	      True will load the Dll at runtime 
( must be in your application path or //Systems/ dir )

What's the diff ?
=================
	99% of the time you can just use the VCL without loading the Dll, but
	if the system is busy then you stand a chance to loose some characters
	of a string larger than 6.
	So if you send large strings like the content of a TMemo then its best 
	to set the Property to DLL unless you are sure there is no other activity on the
	system.
	To send short commands to menus etc then the VCL works great and you 
	DONT need to distribute the DLL with your program.
	

YOu may use any of these key's in the string:

  ControlKey = '^';
  AltKey = '@';
  AltGR  = '^@';
  ShiftKey = '~';

  F1 = '{F1}'
  F2 = '{F2}'
  F3 = '{F3}'
  F4 = '{F4}'
  F5 = '{F5}'
  F6 = '{F6}'
  F7 = '{F7}'
  F8 = '{F8}'
  F9 = '{F9}'
  F10 = '{F10}'
  F11 = '{F11}'
  F12 = '{F12}'
  INSERT = '{INSERT}'
  DELETE = '{DELETE}'
  HOME   = '{HOME}'
  END 	 = '{END}'
  PGUP   = '{PGUP}'
  PGDN   = '{PGDN}'
  ENTER  = '{ENTER}'  
  BKSP   = '{BKSP}'
  PRTSC  = '{PRTSC}'
  SHIFT  = '{SHIFT}'
  ESCAPE = '{ESCAPE}'
  TAB    = '{TAB}'
  UPARROW  = '{UP}'
  DWNARROW = '{DOWN}'

Sample :
 To send an Alt key + the word Copy to an application you could use:
     s := '@Copy' 
 or to send the word Copy and the Return key use:
     s := 'Copy{ENTER}'


Functions
SendKeys (S : String): integer;
	This will send keystrokes to the top level application

SendKeysTo(S : String; FocusHwnd : THandle): integer;
	This will send keystrokes to the window belonging to FocusHwnd

NEW works with Win95 or Win31
*****************************************************************************************
SendKeysToTopWindow(S : String; ClassName, Title: pChar): integer;
	This will send keystrokes to the first TOP level window with the specified values.
	See the old FindWindow Function for details.
	One value may be NIL
*****************************************************************************************

Use
Simply place the component on a form then call like:
 form1.Sendkey1.SendKeysTo('It works',GetFocus);

Return Values are:
-1  = Could not load DLL
 0  = Success
>0 = Exception as shown in Dll

Registration
The unit will display a Msgbox when run outside the Delphi IDE, to register use
SWREG # 11004  for $12.- US
or send $10.- US + $3.- S/H to: 

FreDsterWare ComputerTools
#304-1914 Robson St.
Vancouver BC
V6G 1E8
Canada

TechSupport
You can always contact me at 73303,3532 to answer any questions.